﻿Public Class TMyProcess
    Friend _Id As Integer
    Friend _User As String
    Friend _Host As String
    Friend _DB As String
    Friend _Command As String
    Friend _Time As Integer
    Friend _State As String
    Friend _Info As String
    Public Sub New()

    End Sub
    Public Sub New(ByVal AID As Integer, ByVal AUser As String, ByVal AHost As String, ByVal ADB As String, ByVal ACommand As String, ByVal ATime As Integer, ByVal AState As String, ByVal AInfo As String)
        _Id = AID
        _User = AUser
        _Host = AHost
        _DB = ADB
        _Command = ACommand
        _Time = ATime
        _State = AState
        _Info = AInfo
    End Sub

    Public ReadOnly Property Id() As Integer
        Get
            Return _Id
        End Get
    End Property
    Public ReadOnly Property User() As String
        Get
            Return _User
        End Get
    End Property
    Public ReadOnly Property Host() As String
        Get
            Return _Host
        End Get
    End Property
    Public ReadOnly Property DB() As String
        Get
            Return _DB
        End Get
    End Property
    Public ReadOnly Property Command() As String
        Get
            Return _Command
        End Get
    End Property
    Public ReadOnly Property Time() As Integer
        Get
            Return _Time
        End Get
    End Property
    Public ReadOnly Property State() As String
        Get
            Return _State
        End Get
    End Property
    Public ReadOnly Property Info() As String
        Get
            Return _Info
        End Get
    End Property
End Class
